bindData <- function(info, features, omitWhat=NULL) {
	resultDataFrame<-data.frame();
	crit = vector(mode="logical", length=(length(names(info))));
	crit[]=TRUE
	
	if(!is.null(omitWhat)) {
        for(i in 1:length(names(info))) {
			crit[i]<-!(names(info)[i] %in% omitWhat);
        }
    }
	resultDataFrame=cbind(info[,crit], features);
}